﻿
Partial Class Register
    Inherits System.Web.UI.Page

    Protected Sub LinkButtonOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButtonOK.Click

        Dim SystemUser As New SystemUser
        SystemUser.SystemUserName = TextBoxName.Text
        SystemUser.SystemUserUsername = TextBoxUsername.Text
        SystemUser.SystemUserPassword = TextBoxPassword.Text

        Dim Exception As Exception = DataSystemUser.InsertSystemUser(SystemUser)

        If Exception IsNot Nothing Then

            LabelMessage.Text = Exception.Message

        End If

    End Sub
End Class
